home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / online / CONN97 / CONNECT / SCRIPTS / CONMAUS3.SCR < prev    next >
Encoding:
Text File  |  1994-02-27  |  6.7 KB  |  309 lines
  1. Username='Peter Niemand'                  # Username
  2. Passwort='IchBinNichtDa';                 # Passwort
  3. Sendfile=\''c:\cat\export\infile.txt'\';  # Pfad/Datei des Infiles
  4. Recepath=\''c:\cat\import\'\';            # Pfad für das Outfile
  5. Mausname='NI2';                           # Hier die Heimatmaus eintragen
  6. Repeat=0;                                 # 0 bedeutet bis zum Stromausfall
  7.  
  8.  
  9. #                                 ACHTUNG!
  10. #
  11. # Ab hier bitte nichts mehr ändern! Andernfalls kann das FÜRCHTERLICH
  12. # in die Hose gehen und mit Datenverlust etc. enden!
  13. #
  14. # Für Schäden, die aus der Benutzung des Scripts entstehen, wird
  15. # KEINE Haftung übernommen.
  16. #
  17. # --------------------------------------------------------------
  18. vers=$(version)
  19. if [ $vers -lt 246 ] ; then 
  20.     echo 'CoNnect'$vers', die Version die Sie benutzen'
  21.     echo 'kann dieses Script noch nicht interpretieren'
  22.     bell 3
  23.     break -1
  24. fi
  25.  
  26. ctty vt102 atari
  27. echo -n 'Initialisiere ConMaus.Scr'\33'[5m...'\10\10\10\33'[0m'
  28. # --------------------------------------------------------------
  29. #
  30. # Mögliche Parameter:
  31. #
  32. # Wird der Script ohne Parameter gestartet, so wird die oben angegebene
  33. # MAUS angewählt, eventuell vorhandene Programme im persönlichen Programm-
  34. # teil downgeloadet, der automatische Maustausch gestartet und eine Liste
  35. # der neuen Programme im öffentlichen Programmteil angefordert. Danach
  36. # legt das Modem auf.
  37. #
  38. # Wird der Script mit dem Parameter "online" als erstem Parameter gestartet,
  39. # so wird nach dem Empfangen der Programmliste nicht aufgelegt, sondern man
  40. # bleibt Online in der MAUS. Beliebige andere Worte als erster Parameter
  41. # sorgen für ein direktes Auflegen nach dem Empfangen der Programmliste.
  42. #
  43. # Als zweiter Parameter kann zusätzlich "Nodial" angegeben werden. Geschieht
  44. # dies, so wird nicht gewählt, sondern direkt ein LOGIN versucht. Das ist
  45. # sinnvoll, wenn man z.B. mehrere Mäuse anwählen möchte. Man kann dann im
  46. # Wahldialog als Script "<Scriptname> online Nodial" angeben, so daß dieser
  47. # Script automatisch nach dem Connect gestartet wird. Dabei muß natürlich
  48. # für jede MAUS ein eigener Script mit den passenden Pfaden vorliegen!
  49. # Dieser Parameter muß UNBEDINGT als zweiter Parameter angegeben werden,
  50. # wenn diese Funktion aktiviert werden soll.
  51. #
  52. # Köln,  31. Januar  1993 - 20.33 Uhr 3.   Nicht-ß-Release
  53. # Wedel, 27. Februar 1994 - 13.01 Uhr 3.1. Nicht-ß-Release
  54.  
  55.  
  56. # -------------------------------------------------------
  57. #           Unterroutinen für den Maustausch
  58. # -------------------------------------------------------
  59.  
  60.  
  61. function esc {
  62.     echo -n \33"$1"
  63. }
  64.  
  65.  
  66. function f_Region {
  67.  
  68.     case $1 in
  69.     0)
  70.         esc '[?6l'; esc '[r'
  71.         ;;
  72.     1)
  73.         ctty vt102 vt102id atari
  74.         esc '[?6l' 
  75.         esc '[r'
  76.         esc '[2J' 
  77.         esc '[17;1H' 
  78.         esc '[7m'
  79.         echo -n ' גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג'
  80.         echo    'גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג '
  81.         esc '[0m'
  82.         esc '[21;1H'
  83.         echo "                          Maustausch Script Vers. 3.1"
  84.         echo "                  (C) by Wolfgang Wander & Dirk Johannwerner"
  85.         esc '[1;1H'
  86.         esc '[7m'
  87.         echo -n ' גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגMaus'
  88.         echo 'גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג '
  89.         esc '[24;1H'
  90.         echo -n ' גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג'
  91.         echo -n 'גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגCoⁿnectג '
  92.         esc '[0m'
  93.         esc '[?6h' 
  94.         ;;
  95.     2)
  96.         esc '[18;23r'
  97.         esc '[?6h' 
  98.         esc '[6;1H'
  99.         ;;
  100.     3)
  101.         esc '[2;16r'
  102.         esc '[?6h' 
  103.         esc '[15;1H'
  104.         ;;
  105.     esac
  106. }
  107.  
  108. function waitstr {
  109.     f_Region 3
  110.     waitfor "$@"
  111.     a=?
  112.     f_Region 2
  113.     exit $a
  114. }
  115.  
  116. function f_Title {
  117.     esc '[?6l' 
  118.     esc '[r'
  119.     esc '[17;1H' 
  120.     esc '[7m'
  121.     echo -n ' גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג'
  122.     echo    'גגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגגג '
  123.     len=${#1}
  124.     ln=$[ 40 - $len / 2 ]
  125.     esc '[17;'
  126.     echo -n ${ln}"H $1 "
  127.     esc '[0m'
  128.     f_Region 2
  129. }    
  130.  
  131. function nologin {
  132.     f_Title Fehler
  133.   echo "Im Moment erscheint die Maus nicht gewillt, uns"
  134.   echo "Einlaß zu gewähren."
  135.   hangup
  136.   waitstr -t 1 @@
  137.   f_Region 0
  138.   break -1
  139. }
  140.  
  141. function schlaeft {
  142.     f_Title Fehler
  143.   echo "Im Moment erscheint die Maus nicht gewillt, aus"
  144.   echo "Ihrem Schlaf zu erwachen und unsere Befehle zu befolgen."
  145.   hangup
  146.   waitstr -t 1 @@
  147.   f_Region 0
  148.   break -1
  149. }
  150.  
  151. function loginerror {
  152.     f_Title Fehler
  153.   echo "Im Moment erscheint die Maus nicht gewillt, von uns"
  154.   echo "Namen und Passwort zu erfragen."
  155.   hangup
  156.   waitstr -t 1 @@
  157.   f_Region 0
  158.   break -1
  159. }
  160.  
  161. function uploadfehler {
  162.     f_Title Fehler
  163.   echo "Leider hat der Upload ganz und garnicht funktioniert."
  164.   hangup
  165.   waitstr -t 1 @@
  166.   f_Region 0
  167.   break -1
  168. }
  169.  
  170. function downloadfehler {
  171.     f_Title Fehler
  172.   echo "Leider hat der Download ganz und garnicht funktioniert."
  173.   hangup
  174.   waitstr -t 1 @@
  175.   f_Region 0
  176.   break -1
  177. }
  178.  
  179. function noconnect {
  180.     f_Title Fehler
  181.   echo "Im Moment erscheint die Post nicht gewillt, eine"
  182.   echo "Amtsleitung für uns frei zu machen."
  183.   waitstr -t 1 @@
  184.   f_Region 0
  185.   break -1
  186. }
  187.  
  188. function mauswait {
  189.   mausdone=0
  190.   while [ $mausdone = 0 ] ; do
  191.     if ! waitstr -t 30 'Leertaste' "$@"; then
  192.       schlaeft
  193.     fi
  194.     if [ $WAITID = 1 ]; then
  195.       send -n ' '
  196.     else
  197.       mausdone=1
  198.     fi
  199.   done
  200. }
  201.  
  202.  
  203. # ========================================================
  204. #   Hier beginnt das Script für den CONNECT - Maustausch
  205. # ========================================================
  206.  
  207. ctty vt102 vt102id
  208.  
  209. echo '... done'
  210.  
  211. f_Region 1
  212. f_Region 2
  213.  
  214. if test "$2" != "Nodial"; then
  215.  
  216.     f_Title Anwahl
  217.  
  218.   if ! dial -v -s 30s -r $Repeat "$Mausname"; then
  219.     noconnect
  220.   fi
  221.  
  222. fi
  223.  
  224. echo "Wir haben eine Verbindung zu $Mausname."
  225.  
  226.  
  227. f_Title Login-Prozedur
  228.  
  229. if ! waitstr -t 10s '(J/N)'; then
  230.   nologin
  231. fi
  232.  
  233. sleep 200m; send -n 'j'
  234.  
  235. if ! waitstr -t 30 'Name      :'; then
  236.    loginerror
  237. fi
  238.  
  239. sleep 50m;  send "$Username"
  240.  
  241. if ! waitstr -t 30 'Password  :'; then
  242.    loginerror
  243. fi
  244.  
  245. sleep 50m;  send "$Passwort"
  246.  
  247. doneit=0
  248.  
  249. while [ $doneit = 0 ]; do
  250.   if ! waitstr -t 30 'Hauptmen' 'Leertaste'; then
  251.     schlaeft
  252.   fi
  253.   case $WAITID in 
  254.       1)
  255.         doneit=1 ;;
  256.     2) 
  257.         send -n ' ' ;;
  258.     esac
  259. done
  260.  
  261. send 't'
  262.  
  263. sleep 900m
  264. send -n 'z'
  265.  
  266. if ! waitstr -i -t 30 'protokoll startet'; then
  267.   schlaeft
  268. fi
  269.  
  270. f_Title Upload
  271.  
  272. if ! upload $Sendfile; then
  273.   uploadfehler
  274. fi
  275.  
  276. f_Title 'Mausmails zusammenstellen'
  277.  
  278. if ! waitstr -i -t 600 'protokoll startet'; then
  279.   schlaeft
  280. fi
  281.  
  282. f_Title Download
  283.  
  284. if ! download -p $Recepath; then
  285.   downloadfehler
  286.   exit 1
  287. fi
  288.  
  289. mauswait 'Hauptmen'
  290.  
  291. if test "$1" != "online"; then
  292.  
  293.   send -n 's'
  294.   send -n 'j'
  295.   sleep 1
  296.   hangup
  297.   waitstr -i -t 15 'no carrier' 'ok'
  298.  
  299. fi
  300.  
  301. f_Title 'The End'
  302. echo "-----------------------------------------------------------"
  303. echo \33"#3 Maustausch erfolgreich abgeschlossen"
  304. echo \33"#4 Maustausch erfolgreich abgeschlossen"
  305.  
  306. f_Region 0
  307. quit  
  308.  
  309.